home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 102
/
102.d81
/
mile mic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
50 lines
10 poke56,160:poke55,0:clr:dv=peek(186):ifdv<8thendv=8
20 print"[147][146][158][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]
30 [153]"def lenonvert (NULL)iles (NULL)o (NULL)icrons "
40 [153]"waitusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
50 print"[159][197]nter number of miles: [153]";:li=10:gosub300:ifval(w$)=0then20
60 print"[158]":m=val(w$):print"="m*.8684"[206]autical miles
70 [153]"="m[172]1.6093"(NULL)ilometers
80 print"="m*5280*6"[198]athoms
90 [153]"="m[172]1609.3"(NULL)eters
100 print"="m*5380/3"[217]ards
110 [153]"="m[172]5280"asceet
120 print"="m*5280*12/5.25"5.25 inch disks
130 [153]"="m[172]5280[172]12[173]3.5"3.5 inch disks
140 print"="m*5280*12"[201]nches
150 [153]"="m[172]5280[172]12[172]2.54"lenentimeters
160 print"="m*5280*12*25.4"[205]illimeters
170 [153]"="m[172]5280[172]12[172]25.4[172]1000"(NULL)icrons
180 print"[211][208][197][197][196]"m*88"[198]eet/[205]inute
190 [153]"(NULL)(NULL)valvalstr$"m[172]88[172]12"right$nches/(NULL)inute
200 print"[211][208][197][197][196]"m*88/60"[198]eet/[211]econd
210 [153]"(NULL)(NULL)valvalstr$"m[172]88[172]12[172]60"right$nches/(NULL)econd
220 print"[211][208][197][197][196]"m/60"[205]iles/[205]inute
230 [153]"(NULL)(NULL)valvalstr$"m[173]60[173]60"(NULL)iles/(NULL)econd
232 print"[205][193][195][200]"(m*88/60)/1088"0[195] sea level
233 [153]"(NULL)right$chr$left$(NULL)"(m[173]60[173]60)[173]186281.7"
240 print"[159][193]gain? ([217][159]/[206][159])";
250 geta$:ifa$<>"y"anda$<>"n"then250
260 ifa$="y"thenrun
270 goto50000
280 stop
300 w$="":t=0:lw=0:ifli=0thenli=35
310 geta$:as=asc(a$+chr$(0)):ifti>15thengosub390
320 if(a$<" "ora$>"z")and(a$<"[193]"ora$>"[218]")andas<>13andas<>20then310
330 lw=len(w$):ifas=13thent=-1:gosub390:return
340 iflw=lithenifas<>20andas<>13then310
350 ifas=20theniflw=0then310
360 ifas=20thenw$=left$(w$,len(w$)-1):t=0:gosub390:gosub390:print"[146][157] [157]";:goto310
370 w$=w$+a$:lw=len(w$):poke212,0:print"[146]"a$;:gosub390
380 goto310
390 t=nott:poke199,-t:print" [157]";:ti$="000000":return
10000 close15:open15,8,15,"s:mile mic":close15:save"mile mic",8:stop
50000 ifpeek(797)<>119then60000
50010 poke49152,0:poke44,192:poke43,1:poke45,peek(53246):poke46,peek(43249):run
60000 a$="high basic":fori=8to9:close2:open2,i,2:close2:ifstthen60020
60010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60030
60020 next:print"[147]":poke186,8:end
60030 q$=chr$(34):poke646,peek(53281):print"[147]"
60040 print"[147]p[207]49152,0:p[207]44,192:p[207]43,1:p[207]56,207:p[207]55,252:clr:l[207]"q$a$q$","i
60050 print"run:":poke631,13:poke632,13:poke198,2:end